set exeName=EXCEL.exe
for /f "tokens=*" %%i in ('dir /a/b/s/on "%ProgramFiles%\Microsoft Office\root\*%exeName%"') do (set exePath="%%i")
Set MacroName=clearpassword
Set MacroName2=C:\Users\caike\Desktop\temp\
%exePath%  "%~dp0\bat.xlsm"
exit